//        Rohprogramm fr zweifache Ablauf-Tasten-Abfrage
;
begin
  repeat
    t:=0;
    startwerte;                        ;//Einlesen der Startwerte
    anfang:=0;                         ;//Variable zur Unterscheidung, ob Ablauf-Taste bettigt wurde 
    repeat 
      
      //Beginn der physikalischen Berechnungen
      ;
      

      if start__=1 then anfang:=1      ;//Abfrage der Ablauf-Taste

      if anfang=0 then                 ;//VOR Bettigung der Ablauf-Taste
      begin



      end

      if anfang=1 then                 ;//NACH Bettigung der Ablauf-Taste
      begin



      end;
      ausgabe (   );                   ;//Angabe der Ausgabevariablen
    until t>mt;		
   
    repeat
      ausgabe (   );                   ;//Angabe der Ausgabevariablen
    until start__=1 
    
    if start__=1 then anfang:=0;       ;//Zurck auf Anfangsposition bei erneuter Bettigung der Ablauf-Taste
    neu_graf;                          ;//Graphen sollen neu gezeichnet werden

  until 2<1;
end;